On Error Resume Next  

   Const adOpenStatic = 3
   Const adLockOptimistic = 3
   Const adUseClient = 3
   Dim objConnection, objRecordset , ConnectionString , strUsers , QueryString
   Set objConnection = CreateObject("ADODB.Connection")
   Set objRecordset = CreateObject("ADODB.Recordset")

   ConnectionString = "DRIVER={MySQL ODBC 8.0 UNICODE Driver};Server=192.168.1.35;" & _
   " Database=wincc; User=userwincc;Password=PasswordSYSTEM18;Option=3"
   
   objConnection.Open ConnectionString	
   
   QueryString = "SELECT * FROM wincc.registros;"
   
   objRecordset.CursorLocation = adUseClient
   objRecordset.Open  QueryString, objConnection, adOpenStatic, adLockOptimistic
  
   If Not (objRecordset Is Nothing) Then
	HMIRuntime.Trace "RecordCount: " & objRecordset.RecordCount & vbNewline 
	objRecordSet.MoveFirst
	Do Until objRecordset.EOF
		strUsers = objRecordset.Fields(1).Value
		HMIRuntime.Trace "Value :" & strUsers & vbNewline
		objRecordset.MoveNext
	Loop
   Else
   	   	HMIRuntime.Trace "Empty Recordset " & vbNewline 
   End If 

   objRecordset.Close
   objConnection.Close 
   Set objConnection = Nothing
   Set objRecordset = Nothing  
   
If Err.Number > 0 Then
	HMIRuntime.Trace "Error:" & Err.Number & " Descriptcion: " & Err.Description & vbNewline
End If